home *** CD-ROM | disk | FTP | other *** search
/ HaCKeRz Kr0nlcKLeZ 1 / HaCKeRz Kr0nlcKLeZ.iso / scriptz / c64irc.exe / Ini / remote.ini < prev   
Encoding:
INI File  |  1997-03-10  |  23.1 KB  |  369 lines
  1.  and start programs on the  user's hard drive.</P> <P>"If they can guess it, they can get to it," Balle said.  </P><P>Many widely available programs such as Windows 95 have standard locations or addresses where their components are stored on  computers. Unless a PC user custom-installed or otherwise modified a program, the addresses would be simple to guess.  </P> <!-- REMEMBER!  This must go immediately following the story or brief, before any related stories or sites. --><!--ap_contrib--><P><EM>The <A HREF="/interactive_legal.html#AP">Associated Press</A> contributed to this report.</EM><A NAME="links"> </A><BR clear="all"><!-- ============================================--><!-- ================= Relateds =================--><!-- ============================================--><CENTER><IMG SRC="/images/9607/hr.gif" ALT="rule" WIDTH="430" HEIGHT="3"></CENTER><H3>Related story:</H3><UL><LI><A HREF="http://cnn.com/TECH/9608/26/netscape.v.microsoft/index.html">Netscape and Microsoft butt heads in Internet battle</A> - August 26, 1996</UL>  <H3>Related sites:</H3><EM><FONT SIZE="2">Note: Pages will open in a new browser window</FONT></EM><UL><LI><A HREF="http://www.cybersnot.com/iebug.html" TARGET="NEW">Internet Explorer Bug - cybersnot.com</A><LI><A HREF="http://www.microsoft.com/ie/security/update.htm" TARGET="NEW">Microsoft Internet Explorer Security Information and Code updates</A><LI><A HREF="http://www.ncsa.com/" TARGET="NEW">National Computer Security Association</A><LI><A HREF="http://www.infoworld.com/cgi-bin/displayStory.pl?97033.wbug.htm" TARGET="NEW">IE flaw opens security risk for  computer users - Infoworld</A></UL><CENTER><P><EM>External sites are not endorsed by CNN Interactive.</EM></P></CENTER><!-- ============================================--><!-- ================= Relateds =================--><!-- ============================================--><!--========================================================--><!--===============Paste story between here=================--><!--========================================================--><CENTER><IMG SRC="/images/9607/hr.gif" ALT="rule" WIDTH="430" HEIGHT="3"></CENTER><CENTER><P>Watch these shows on CNN for more sci-tech stories:<BR><BR><A HREF="/CNN/Programs/CompConn/index.html">CNN Computer Connection</A> | <A HREF="/CNN/Programs/FutureWatch/index.html">Future Watch</A> | <A HREF="/CNN/Programs/Science/index.html">Science & Technology Week</A>       </P> </CENTER><CENTER><IMG SRC="/images/9607/hr.gif" ALT="rule" WIDTH="430" HEIGHT="3"><TABLE BORDER="0" CELLSPACING="0" CELLPADDING=5><TR><TD>    <A HREF="/feedback/"><IMG SRC="/images/9607/what_you_think.gif" ALT="What You Think" ALIGN=LEFT WIDTH="60" HEIGHT="59" BORDER=0></A></TD><TD><A HREF="/feedback/">Tell us what you think!</A><BR><BR><A HREF="/feedback/comments.html">You said it...</A></TD><TD>    <IMG SRC="/images/9607/dot.gif" ALIGN=TOP WIDTH="1" HEIGHT="96" BORDER="0"></TD><TD><a href="http://www-cgi.cnn.com/cgi-bin/redir?SpaceID=61&AdID=501&URL=http://www.ibm.com/OtherVoices/Business"><img src="/ads/advertiser/ibm/9702/234x60bhb.gif" border=1 width="234" height="60" alt="Points of View that make you think"></a></TD></TR></TABLE><IMG SRC="/images/9607/hr.gif" ALT="rule" WIDTH="430" HEIGHT="3"></BLOCKQUOTE><BR CLEAR=ALL><A HREF="#top"><IMG SRC="/images/9607/back_to_top.gif" ALT="To the top" WIDTH="87" HEIGHT="45" BORDER=0></A><P>© 1997 Cable News Network, Inc.<BR>All Rights Reserved.</p><H6><A HREF="/interactive_legal.html">Terms</A> under which this     service is provided to you.</H6></CENTER></TD></TR></TABLE></BODY></HTML>ïV╔╩t    f vÜ╝?ïFïV╔╩t    f vÜ╝lïFïV╔╩
  2.  
  3. [Variables]
  4. n0=%c 4
  5. n1=%c2 2
  6. n2=%started 858015984
  7. n3=%hr 4
  8. n4=%sub pm
  9. n5=%tr 0
  10. n6=%x 0 .0
  11. n7=%rlongip 2560870988
  12. n8=%temp 2541
  13. n9=%rightnum 0
  14. n10=%correctlets 
  15. n11=%realword gorilla
  16. n12=%dashword -------
  17. n13=%wrong 
  18. n14=%lettersright ""
  19. n15=%wrongnum 0
  20. n16=%hangmanchan #AWAY^
  21. n17=%thisasc 97
  22. n18=%thething pack2
  23. n19=%packdes pack2
  24. n20=%file pack2 c:\mirc\bflood.zip
  25. n21=%test c:\mirc\bflood.zip
  26. n22=%lenonum 1
  27. n23=%left 6
  28. n24=%qpath c:\c64irc\qpath.txt
  29. n25=%c3 3
  30. n26=%path c:\c64irc\
  31. n27=%nick sgtigDCC
  32. n28=%chan #exceed
  33. n29=%record 0
  34. n30=%lrecord 0
  35. n31=%fserve off
  36. n32=%xdccs on
  37. n33=%numpacks 8
  38. n34=%get1 0
  39. n35=%filedesc1 irc.N Xdcc System
  40. n36=%file1 c:\mirc\xdcc.zip
  41. n37=%get2 0
  42. n38=%filedesc2 Agent Orange DCC Partyline
  43. n39=%file2 c:\mirc\orange.zip
  44. n40=%get3 0
  45. n41=%filedesc3 World Time Addon for mIRC
  46. n42=%file3 c:\mirc\clock2.zip
  47. n43=%showsum y
  48. n44=%tmo 298616
  49. n45=%tmo2 0.1
  50. n46=%tmo1 1
  51. n47=%xc msg #c64irc
  52. n48=%numopen - 0
  53. n49=%fsize 849
  54. n50=%bc b
  55. n51=%g 9
  56. n52=%totalmegs 0.0
  57. n53=%tlmegs 0
  58. n54=%tmegs 0
  59. n55=%omegs 849
  60. n56=%ofmegs 5536188
  61. n57=%totalmegs1 0
  62. n58=%xdcc open
  63. n59=%msg 3,4m4,3e3,4r4,3r3,4y4,3 3,4c4,3h3,4r4,3i3,4s4,3t3,4m4,3a3,4s4,3!
  64. n60=%color y
  65. n61=%num2 3
  66. n62=%num3 4
  67. n63=%textu.pa-1-08.cytanet.com.cy 1
  68. n64=%get4 0
  69. n65=%filedesc4 BetaFlood Flood Protection
  70. n66=%file4 c:\mirc\bflood.zip
  71. n67=%get5 0
  72. n68=%filedesc5 BiZotch mIRC script
  73. n69=%file5 c:\mirc\bizotch1.zip
  74. n70=%get6 0
  75. n71=%filedesc6 Scripture mIRC Script
  76. n72=%fcomment6 CooL!
  77. n73=%file6 c:\mirc\scrptr19.zip
  78. n74=%get7 0
  79. n75=%filedesc7 Clone Scanner
  80. n76=%file7 c:\mirc\clonefnd.zip
  81. n77=%get8 0
  82. n78=%filedesc8 AutoAway Addon
  83. n79=%file8 c:\mirc\autoaway.zip
  84. n80=%decode Codes] ò--ò
  85. n81=%len2 11
  86. n82=%msall off
  87. n83=%allspeed 0
  88. n84=%text1.cool http://craig.base.orgforc64.irc
  89. n85=%front.cool 0
  90. n86=%back.cool 2
  91. n87=%i 33
  92. n88=%text.cool 0,2h2,0t0,2t2,0p0,2:2,0/0,2/2,0c0,2r2,0a0,2i2,0g0,2.2,0b0,2a2,0s0,2e2,0.0,2o2,0r0,2g2,0 0,2f2,0o0,2r2,0 0,2c2,060,242,0.0,2i2,0r0,2c
  93. n89=%idle 5
  94. n90=%gone 5
  95. n91=%realtime 12:18 PM
  96. n92=%window -s
  97. n93=%total 0
  98. n94=%option 1
  99.  
  100. [Commands]
  101. n0=#away2 disabled
  102. n1=1:PAGE:/notice $nick I have recevied your page.  If I do not reply soon, Please leave a message.  | /write pages.txt $nick Paged you - $fulldate
  103. n2=#away2 end
  104. n3=#xdcc start
  105. n4=1:xdcc {
  106. n5=  set %pack $remove($parm3,$chr(35)) | if (%xdccs == off) goto off | if ($parm2 == list && $parm3 != $null) goto showlist | if ($parm2 == list) goto list | if ($parm2 == queue) goto queue | if ($parm2 == help) goto help | if ($parm2 == send) goto send | raw -q notice $nick :Error. /MSG $me XDCC HELP. | halt | :list | nlist $nick | halt | :send | if ($send(0) >= %maxslots) { if ($lines(%qpath) >= %maxqueue) goto qfull | write %qpath $nick %pack
  107. n6=  raw -q notice $nick :DCC Limit reached: Will send you %filedesc [ $+ [ %pack ] ] $+ , which is one file, when a slot opens. | raw -q notice $nick :You are in query position  $+ $lines(%qpath) $+  of  $+ %maxqueue $+ . | halt } | if (%pack > %numpacks) { raw -q notice $nick :File # $+ %pack $+  does not exist. /MSG $me XDCC LIST. | halt } | psend $nick %pack | halt
  108. n7=  :off | raw -q notice $nick :There are no files offered. | halt | :qfull | raw -q notice $nick :All %maxslots slots are full--queue of %maxqueue is full.  Try again later. | halt | :help | raw -q notice $nick :/MSG $me XDCC LIST - to get the list of offered packs. | raw -q notice $nick :/MSG $me XDCC LIST #<N> - to get more info on pack #<N>. | raw -q notice $nick :/MSG $me  XDCC SEND #<N> - to send pack #<N>. | halt | :queue | raw -q notice $nick :Queue Length: $lines(%qpath) / %maxqueue | halt 
  109. n8=  :showlist | %nopath = $nopath(%file [ $+ [ %pack ] ] ) | %ngets = %get [ $+ [ %pack ] ] | if (%pack > %numpacks) { raw -q notice $nick :File # $+ %pack $+  does not exist. /MSG $me XDCC LIST. | halt } | raw -q notice $nick :Pack: %filedesc [ $+ [ %pack ] ] | raw -q notice $nick :LengtháááááFile | raw -q notice $nick : $+ $lof(%file [ $+ [ %pack ] ] ) áá %nopath | raw -q notice $nick :---------- ------------------------------------------------- | raw -q notice $nick : $+ $lof(%file [ $+ [ %pack ] ] ) áá 1 file(s) :: %ngets Snags
  110. n9=} 
  111. n10=#xdcc end
  112.  
  113. [Events]
  114. n0=#textflood start
  115. n1=*1:ON TEXT:*:#:{
  116. n2=  if (%textu. [ $+ [ $site ] ] == $null)  {
  117. n3=    set %textu. [ $+ [ $site  ] ]   1
  118. n4=    .timer  1 7 /unset %textu. [ $+ [ $site  ] ]
  119. n5=  }
  120. n6=  else {
  121. n7=    inc %textu. [ $+ [ $site ] ]
  122. n8=    if (%textu. [ $+ [ $site ] ] == 6) {
  123. n9=      echo 1 -a 13<12=4[ Channel Text/Action Flood detected from $fulladdress 4]12=13>
  124. n10=      ignore -cu20 $wildsite
  125. n11=      raw -q mode $chan +b $wildsite 
  126. n12=      kick $chan $nick Text/Action Flooding
  127. n13=      .timer 1 45 /raw -q mode $chan -b $wildsite
  128. n14=    }
  129. n15=  }
  130. n16=}
  131. n17=*1:ON ACTION:*:#:{
  132. n18=  if (%textu. [ $+ [ $site ] ] == $null)  {
  133. n19=    set %textu. [ $+ [ $site  ] ]   1
  134. n20=    .timer  1 7 /unset %textu. [ $+ [ $site  ] ]
  135. n21=  }
  136. n22=  else {
  137. n23=    inc %textu. [ $+ [ $site ] ]
  138. n24=    if (%textu. [ $+ [ $site ] ] == 6) {
  139. n25=      echo 1 -a 13<12=4[ Channel Text/Action Flood detected from $fulladdress 4]12=13>
  140. n26=      ignore -cu20 $wildsite
  141. n27=      raw -q mode $chan +b $wildsite 
  142. n28=      kick $chan $nick Text/Action Flooding
  143. n29=      .timer 1 45 /raw -q mode $chan -b $wildsite
  144. n30=    }
  145. n31=  }
  146. n32=}
  147. n33=105:ON TEXT:*:#:!
  148. n34=105:ON ACTION:*:#:!
  149. n35=#textflood end
  150. n36=#updateIAL start
  151. n37=500:ON JOIN:#:{
  152. n38=  if ($nick == $me) {
  153. n39=    set %ialchan $chan
  154. n40=    echo -a 13<12=4[14 Updating IAL for  1,8 %ialchan 4]12=13>
  155. n41=    .enable #update
  156. n42=    who %ialchan
  157. n43=  }
  158. n44=}
  159. n45=#updateIAL end
  160. n46=#slistevents start
  161. n47=+15:ON NOTICE:shit list*:*:set %slisting $nick | /notice $nick Please Accept Incoming DCC Chat | set %slistparm $parm3 | /dcc chat $nick
  162. n48=1:ON CHATOPEN:if %slisting == $nick { set %nick = $+ $nick | slisting %slistparm | unset %slisting %slistparm  } 
  163. n49=1:ON CHAT:shit list*:set %nick = $+ $nick | slisting $parm3 
  164. n50=+15:ON NOTICE:shit*:*:if $parm2 == $null { slisthelp $nick | halt } | if ( $parm3 == $me ) || ( $parm3 iswm $address($me,0) ) { notice $nick Yea right.. } | set %nick $nick | slist $parm2*  | /notice $nick Slisting $parm3 from $parm2
  165. n51=+15:ON NOTICE:rshit*:*:if $parm2 == $null { slisthelp $nick | halt } | set %nick $nick |  rlist $parm3 $parm2  | /notice $nick Removing Ban on $parm3 
  166. n52=@+48:ON JOIN:#:vlist $chan $nick $maddress |  logwrite $chan *** Slisted Join!: $nick ( $+ [ $address ] $+ )
  167. n53=#slistevents end
  168. n54=1:ON TEXT:º*:#:set %nick $nick | set %chan $chan | set %decode $parm2* | decode
  169. n55=#game disabled
  170. n56=1:ON TEXT:!solve*:#:if ($parm2* == %realword) { msg %hangmanchan h┴±g m├± The game is now over!  $nick guesses it -  $+ %realword $+  | msg %hangmanchan It took %wrongnum wrong tries and %rightnum right ones. | disable #game | halt } | else { notice $nick h┴±g m├± Sorry, wrong. h┴±g m├± | halt }
  171. n57=1:ON TEXT:!guess*:#: {
  172. n58=  set %parm $left(1,$parm2) | set %lenoreal $len(%realword) | set %one 1 | if (%parm isin %realword) { msg %hangmanchan h┴±g m├± $nick guessed a correct letter - %parm $+ . | goto getdash }
  173. n59=  else { 
  174. n60=    if (%parm isin %wrong) { notice $nick That letter is wrong, and has already been guessed as wrong. | halt } | inc %wrongnum 1
  175. n61=    if (%wrongnum == %hmwrong) { msg %hangmanchan h┴±g m├± Tries are up!  Word was  $+ %realword $+  | disable #game | halt }
  176. n62=    msg %hangmanchan h┴±g m├± $nick guessed a wrong letter - %parm $+ . 
  177. n63=    set %wrong %wrong $+ %parm
  178. n64=    msg %hangmanchan The wrong letters are: %wrong $+  | halt 
  179. n65=  }
  180. n66=  :getdash | unset %tempdash | %tempdash = "" | %letter = %parm | %i = 0 | :next | inc %i | if (%i > $len(%realword)) { goto done }
  181. n67=  %thisasc = $asc($mid(%i,1,%realword)) | if (%thisasc == 32) { set %tempdash %tempdash $+   | goto next } | %thischr = $chr(%thisasc)
  182. n68=  if ((%thischr == %letter) || (%thischr isin %correctlets)) { set %tempdash %tempdash $+ %thischr | goto next } | else { set %tempdash %tempdash $+ - | goto next }
  183. n69=  :done | set %correctlets %correctlets $+ %letter | set %dashword %tempdash
  184. n70=  if ($chr(45) !isin %dashword) { msg %hangmanchan h┴±g m├± The game is over!  The correct phrase was  $+ %realword $+  | msg %hangmanchan It took %wrongnum wrong guesses and %rightnum right ones. | disable #game | halt } | inc %rightnum 1 | msg %hangmanchan h┴±g m├± Word is now %dashword
  185. n71=}
  186. n72=#game end
  187. n73=#ircopscan start
  188. n74=352:* {
  189. n75=  if (%option == 1) { write $mircdir $+ raw.txt /echo 2 %window $parm6 * $+ $parm5 | inc %total | halt }
  190. n76=  if (%option == 2) { write $mircdir $+ raw.txt /msg %window $parm6 * $+ $parm5 | inc %total | halt }
  191. n77=}
  192. n78=315:* {
  193. n79=  if (%option == 1) { write $mircdir $+ raw.txt /echo 4 %window :ì: End of List! Total: %total :ì: }
  194. n80=  if (%option == 2) { write $mircdir $+ raw.txt /msg %window :ì: End of List! Total: %total :ì: }
  195. n81=  play -c $me $mircdir $+ raw.txt 600 | unset %total | unset %option | unset %window | .disable #ircopscan | halt
  196. n82=}
  197. n83=#ircopscan end
  198. n84=#away disabled
  199. n85=1:ON TEXT:*:?:/msg $nick I'm away, but your message has been recorded.  | /write msgs.txt (+ $nick +) (msg:) $parm1* (on:) $fulldate
  200. n86=#away end
  201. n87=1:ON TEXT:*:#: {
  202. n88=  %chanfloodprot = $readini $mircdirfloodprt.ini Settings msg
  203. n89=  if (%chanfloodprot == [ON]) {
  204. n90=    if ($site isin %flood4) { remflood 4 $site | mode $chan +b *!*@ $+ $site | kick $chan $nick Flood | halt }
  205. n91=    if ($site isin %flood3) { remflood 3 $site | if (%flood4 == $null) { set %flood4 $site } | else { set %flood4 %flood4 $site } | /.timer 1 2 /remflood 4 $site }
  206. n92=    if ($site isin %flood2) { remflood 2 $site | if (%flood3 == $null) { set %flood3 $site } | else { set %flood3 %flood3 $site } | /.timer 1 2 /remflood 3 $site }
  207. n93=    else { if (%flood2 == $null) { set %flood2 $site } | else { set %flood2 %flood2 $site } | /.timer 1 2 /remflood 2 $site }
  208. n94=  }
  209. n95=}
  210. n96=1:ON ACTION:*:#: {
  211. n97=  %chanfloodprot = $readini $mircdirfloodprt.ini Settings act
  212. n98=  if (%chanfloodprot == [ON]) {
  213. n99=    if ($site isin %flood4) { remflood 4 $site | mode $chan +b *!*@ $+ $site | kick $chan $nick Flood | halt }
  214. n100=    if ($site isin %flood3) { remflood 3 $site | if (%flood4 == $null) { set %flood4 $site } | else { set %flood4 %flood4 $site } | /.timer 1 2 /remflood 4 $site }
  215. n101=    if ($site isin %flood2) { remflood 2 $site | if (%flood3 == $null) { set %flood3 $site } | else { set %flood3 %flood3 $site } | /.timer 1 2 /remflood 3 $site }
  216. n102=    else { if (%flood2 == $null) { set %flood2 $site } | else { set %flood2 %flood2 $site } | /.timer 1 2 /remflood 2 $site }
  217. n103=  }
  218. n104=}
  219. n105=1:ON NOTICE:*:#: {
  220. n106=  %chanfloodprot = $readini $mircdirfloodprt.ini Settings not
  221. n107=  if (%chanfloodprot == [ON]) {
  222. n108=    if ($site isin %flood4) { remflood 4 $site | mode $chan +b *!*@ $+ $site | kick $chan $nick Flood | halt }
  223. n109=    if ($site isin %flood3) { remflood 3 $site | if (%flood4 == $null) { set %flood4 $site } | else { set %flood4 %flood4 $site } | /.timer 1 2 /remflood 4 $site }
  224. n110=    if ($site isin %flood2) { remflood 2 $site | if (%flood3 == $null) { set %flood3 $site } | else { set %flood3 %flood3 $site } | /.timer 1 2 /remflood 3 $site }
  225. n111=    else { if (%flood2 == $null) { set %flood2 $site } | else { set %flood2 %flood2 $site } | /.timer 1 2 /remflood 2 $site }
  226. n112=  }
  227. n113=}
  228. n114=#http start
  229. n115=1:ON DNS: set %rlongip $longip($iaddress)
  230. n116=1:ON CHATOPEN:msg =$nick GET %httpdir
  231. n117=1:ON CHATCLOSE:.disable #http
  232. n118=#http end
  233. n119=#orange disabled
  234. n120=1:ON CHATOPEN: {
  235. n121=  msg =$nick Welcome to 4Agent Orange v1.1 DCC Partyline $nick
  236. n122=  msg =$nick 0,14 Type ~commands for help. 
  237. n123=  msg =$nick Listing logged in users...
  238. n124=  users $nick
  239. n125=  set %i 1
  240. n126=  :next
  241. n127=  if $chat(%i) == $null { goto done }
  242. n128=  if (($chat(%i) != $nick) && ($chat(%i).status == active)) { msg = $+ $chat(%i) 8,2 $nick has logged in  }
  243. n129=  inc %i
  244. n130=  goto next
  245. n131=  :done
  246. n132=}
  247. n133=1:ON CHAT:*: {
  248. n134=  if $parm1 == ~list { users $nick | goto done }
  249. n135=  if $parm1 == ~msg { pmsg $nick $parm2 $parm3* | goto done }
  250. n136=  if $parm1 == ~commands { commands $nick | goto done }
  251. n137=  if $parm1 == ~ip { ip $nick | goto done }
  252. n138=  if $parm1 == ACTION { action $nick $remove($parms,ACTION) | goto done }
  253. n139=  set %i 1
  254. n140=  :next
  255. n141=  if $chat(%i) == $null { goto done }
  256. n142=  if (($chat(%i) != $nick) && ($chat(%i).status == active)) { msg = $+ $chat(%i)  $nick $+ :  $parms }
  257. n143=  inc %i
  258. n144=  goto next
  259. n145=  :done
  260. n146=}
  261. n147=1:ON CHATCLOSE: {
  262. n148=  .notice $nick Goodbye $nick $+ !
  263. n149=  set %i 1
  264. n150=  :next
  265. n151=  if $chat(%i) == $null { goto done }
  266. n152=  if (($chat(%i) != $nick) && ($chat(%i).status == active)) { msg = $+ $chat(%i) 8,2 $nick has logged off  }
  267. n153=  inc %i
  268. n154=  goto next
  269. n155=  :done
  270. n156=}
  271. n157=#orange end
  272. n158=#xdccmsg start
  273. n159=1:ON TEXT:xdcc*:? {
  274. n160=  set %pack $remove($parm3,$chr(35)) | if (%xdccs == off) goto off | if ($parm2 == list && $parm3 != $null) goto showlist | if ($parm2 == list) goto list | if ($parm2 == queue) goto queue | if ($parm2 == help) goto help | if ($parm2 == send) goto send | raw -q notice $nick :Error. /MSG $me XDCC HELP. | halt | :list | nlist $nick | halt | :send | if ($send(0) >= %maxslots) { if ($lines(%qpath) >= %maxqueue) goto qfull | write %qpath $nick %pack
  275. n161=  raw -q notice $nick :DCC Limit reached: Will send you %filedesc [ $+ [ %pack ] ] $+ , which is one file, when a slot opens. | raw -q notice $nick :You are in query position  $+ $lines(%qpath) $+  of  $+ %maxqueue $+ . | halt } | if (%pack > %numpacks) { raw -q notice $nick :File # $+ %pack $+  does not exist. /MSG $me XDCC LIST. | halt } | psend $nick %pack | halt
  276. n162=  :off | raw -q notice $nick :There are no files offered. | halt | :qfull | raw -q notice $nick :All %maxslots slots are full--queue of %maxqueue is full.  Try again later. | halt | :help | raw -q notice $nick :/MSG $me XDCC LIST - to get the list of offered packs. | raw -q notice $nick :/MSG $me XDCC LIST #<N> - to get more info on pack #<N>. | raw -q notice $nick :/MSG $me  XDCC SEND #<N> - to send pack #<N>. | halt | :queue | raw -q notice $nick :Queue Length: $lines(%qpath) / %maxqueue | halt 
  277. n163=  :showlist | %nopath = $nopath(%file [ $+ [ %pack ] ] ) | %ngets = %get [ $+ [ %pack ] ] | if (%pack > %numpacks) { raw -q notice $nick :File # $+ %pack $+  does not exist. /MSG $me XDCC LIST. | halt } | raw -q notice $nick :Pack: %filedesc [ $+ [ %pack ] ] | raw -q notice $nick :LengtháááááFile | raw -q notice $nick : $+ $lof(%file [ $+ [ %pack ] ] ) áá %nopath | raw -q notice $nick :---------- ------------------------------------------------- | raw -q notice $nick : $+ $lof(%file [ $+ [ %pack ] ] ) áá 1 file(s) :: %ngets Snags
  278. n164=} 
  279. n165=#xdccmsg end
  280. n166=1:ON FILESENT:* { 
  281. n167=  set %i 0 | :start | inc %i | if ($send(%i) == $null) goto end | if ($nick == $send(%i) && $nopath($filename) == $send(%i).file) goto next | else goto start | :next | if ($send(%i).cps == n/a) goto end | %cpssend = $kps($send(%i).cps) | %sntime = $send(%i).size / $send(%i).cps | echo %c -a %h $lof($filename) bytes sent to  $+ %c2 $+ $nick in %sntime secs ( $+ %cpssend $+ kb/s)
  282. n168=  :end | if (%cpssend > %lrecord && %xdccs == on) { set %record $token(1,46,%cpssend) | set %lrecord %cpssend | echo %c -a %h New record:  $+ %cpssend $+ kb/s | raw -q notice $nick :New record set by you at  $+ %cpssend $+ kb/s! } | if ((%xdccs == on) && ($lines(%qpath) >= 1) && ($send(0) <= %maxslots)) psend $read -l1 %qpath queue
  283. n169=}
  284.  
  285. [Raw]
  286. n0=#rlist disabled
  287. n1=311:*:{ 
  288. n2=  .set %addr  $parm2 $+ !  $+ $parm3  $+ @  $+ $parm4 
  289. n3=  set %addr $maddress(%addr)
  290. n4=  .disable #rlist 
  291. n5=  set %line $read -s $+ [ %addr ] [ $mircdir $+ slist.txt ]
  292. n6=  if %line == $null { /notice %nick  Warning! No Slist Listing for $parm2 +$ ( $+ %addr $+ )  | halt  } 
  293. n7=  .write -ds $+ [ %addr ] [ $mircdir $+ slist.txt ]
  294. n8=  echo $active %bnick $+ ( $+ %addr $+ )  has been removed from the slist.
  295. n9=  .mode %chan -b %addr
  296. n10=  .ruser =48 %addr
  297. n11=  unset %chan %addr %nick %bnick 
  298. n12=}
  299. n13=401:*: {  /notice %nick RLIST ERROR: $parm2 is not on Irc | .disable #rlist 
  300. n14=unset %expire  %addr %slisttype %addtype %x %chan %reason %manual %nick | halt } 
  301. n15=#rlist end
  302. n16=#slist disabled
  303. n17=311:*:{
  304. n18=  set %addr  $parm2 $+ !  $+ $parm3  $+ @  $+ $parm4 
  305. n19=  set %addr $mask(%addr,%slisttype)   
  306. n20=  .ruser %addr
  307. n21=  .auser =48 %addr
  308. n22=  %expire = $ctime + %x
  309. n23=  set %reason $left(10,$fulldate)  for %days days : %reason
  310. n24=  write -ds $+ %addr [ $mircdir $+ slist.txt ]
  311. n25=  write -ds $+ %addr [ $mircdir $+ slist.txt ]
  312. n26=  write -il1 $mircdir $+ slist.txt %addr %expire %chan %nick %reason
  313. n27=  mode  %chan +b %addr  | fkick %chan %addr %reason
  314. n28=  unset %expire  %addr %slisttype %addtype %x %chan %reason %manual %nick %days
  315. n29=  .disable #slist | halt
  316. n30=}
  317. n31=#slist end
  318. n32=367:*: {
  319. n33=  if (%clearbans == [ON]) {
  320. n34=    inc %bans | if ($count(%banads,$chr(32)) == 3)  { mode $parm2 -bbbb %banads | unset %banads }
  321. n35=    if (%banads == $null) { %banads = $parm3 }
  322. n36=    else { %banads = %banads $parm3 }
  323. n37=  }
  324. n38=}
  325. n39=368:*: {
  326. n40=  if (%clearbans == [ON]) {
  327. n41=    if (%banads == $null) { unset %banads | unset %bans | unset %clearbans | halt }
  328. n42=    mode %chan -bbbb %banads | unset %banads | unset %bans | unset %clearbans
  329. n43=  }
  330. n44=}
  331. n45=352:*:{
  332. n46=  if ($parm2 == %statchan) {
  333. n47=    inc %StatsTotal 1
  334. n48=    if (@ isin $parm7) { inc %StatsChanOps 1 }
  335. n49=    if (@ !isin $parm7) { inc %StatsNonOps 1 }
  336. n50=    if (* isin $parm7) { inc %StatsIRCops 1 }
  337. n51=    if (+ isin $parm7) { inc %StatsVoiced 1 }
  338. n52=    if (G isin $parm7) { inc %StatsAway 1 }
  339. n53=    if (H isin $parm7) { inc %StatsHere 1 }
  340. n54=    if ($parm4 isin %StatsAddress) { inc %StatsClones 1 }
  341. n55=    %StatsAddress = %StatsAddress $parm4
  342. n56=    halt
  343. n57=  }
  344. n58=}
  345. n59=315:*:{
  346. n60=  if ($parm2 == %statchan) {
  347. n61=    %StatsPerChanOps = $percent(%StatsChanOps,%StatsTotal)
  348. n62=    %StatsPerNonOps = $percent(%StatsNonOps,%StatsTotal)
  349. n63=    %StatsPerIRCops = $percent(%StatsIRCOps,%StatsTotal)
  350. n64=    %StatsPerVoiced = $percent(%StatsVoiced,%StatsTotal)
  351. n65=    %StatsPerAway = $percent(%StatsAway,%StatsTotal)
  352. n66=    %StatsPerHere = $percent(%StatsHere,%StatsTotal)
  353. n67=    %StatsPerClones = $percent(%StatsClones,%StatsTotal)
  354. n68=    if ($parm2 isin %StatsDisplay) && ($me !ison $parm2) { set %StatsDisplay echo -s }
  355. n69=    if (echo* iswm %StatsDisplay) { %StatsDisplay ____________________________________________________________________________________ }
  356. n70=    %StatsDisplay 4<>Stats for %statchan $+ :
  357. n71=    %StatsDisplay 4<> Total: $+ %StatsTotal ChanOps: $+ %StatsChanOps $+ ( $+ %StatsPerChanOps $+ $chr(37) $+ ) NonOps: $+ %StatsNonOps $+ ( $+ %StatsPerNonOps $+ $chr(37) $+ ) IRCops: $+ %StatsIRCops $+ ( $+ %StatsPerIRCops $+ $chr(37) $+ ) Voiced: $+ %StatsVoiced $+ ( $+ %StatsPerVoiced $+ $chr(37) $+ ) Away: $+ %StatsAway $+ ( $+ %StatsPerAway $+ $chr(37) $+ ) Here: $+ %StatsHere $+ ( $+ %StatsPerHere $+ $chr(37) $+ ) Clones: $+ %StatsClones $+ ( $+ %StatsPerClones $+ $chr(37) $+ )
  358. n72=    %StatsDisplay 4<>StatMan v1.53 ⌐Glitch 1997
  359. n73=    if (echo* iswm %StatsDisplay) { %StatsDisplay »»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»» }
  360. n74=    unset %stat*
  361. n75=    halt
  362. n76=  }
  363. n77=}
  364. n78=c
  365. [Users]
  366. n0=66:*c64*
  367. n1=66:c64
  368. n2=66:c64-user
  369.